let rec length l =
if (l = []) then 0 else (1 + (length (tail l))) in
(length [1;2;3;4;5])
;;












		
